home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / brpost1.zip / POSTCALL.WCX (.txt) < prev    next >
Wildcat! WCX  |  1995-02-26  |  2KB  |  82 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  1541 bytes  01/29/123  04:32:00pm
  3. '! Code Segment Size  :800 bytes
  4. '! Data Segment Size  :4469 bytes
  5. '! String Segment Size:741 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Dim s4463 As String
  9.       Dim i4467 As Integer
  10.  
  11.       Open ProgPath + "post1.cfg" For Random As 1 Len = 128 '! This value should probably be replaced with a "SizeOf" expression
  12.       ActivityLog "*** Postcall is starting to run ***"
  13.       ActivityLog "This Postcall is not REGISTERED please do so."
  14.       i4467 = 1
  15.    88 Do While Not EOF(1)
  16.         Input #1, s4463
  17.         If Exists(s4463) Then
  18.           Run s4463, ""
  19.           ActivityLog "Postcall ran: " + s4463
  20.         Else
  21.   153     If Not Exists(s4463) Then
  22.             ActivityLog "Could not run WcCode Program: " + s4463
  23.             ActivityLog "Could not find Program: " + s4463
  24.           End If
  25.         End If
  26.   196   i4467 = i4467 + 1
  27.       Loop
  28.   216 Close 1
  29.       If MakeWild.NodeId = 0 Then
  30.         Shell "\wildcat\wcwork\node0\post.bat", ""
  31.       End If
  32.   253 If MakeWild.NodeId = 1 Then
  33.         Shell "\wildcat\wcwork\node1\post.bat", ""
  34.       End If
  35.   286 If MakeWild.NodeId = 2 Then
  36.         Shell "\wildcat\wcwork\node2\post.bat", ""
  37.       End If
  38.   319 If MakeWild.NodeId = 3 Then
  39.         Shell "\wildcat\wcwork\node3\post.bat", ""
  40.       End If
  41.   352 If MakeWild.NodeId = 4 Then
  42.         Shell "\wildcat\wcwork\node4\post.bat", ""
  43.       End If
  44.   385 If MakeWild.NodeId = 5 Then
  45.         Shell "\wildcat\wcwork\node5\post.bat", ""
  46.       End If
  47.   418 If MakeWild.NodeId = 6 Then
  48.         Shell "\wildcat\wcwork\node6\post.bat", ""
  49.       End If
  50.   451 If MakeWild.NodeId = 7 Then
  51.         Shell "\wildcat\wcwork\node7\post.bat", ""
  52.       End If
  53.   484 If MakeWild.NodeId = 8 Then
  54.         Shell "\wildcat\wcwork\node8\post.bat", ""
  55.       End If
  56.   517 If MakeWild.NodeId = 9 Then
  57.         Shell "\wildcat\wcwork\node9\post.bat", ""
  58.       End If
  59.   550 If MakeWild.NodeId = 10 Then
  60.         Shell "\wildcat\wcwork\node10\post.bat", ""
  61.       End If
  62.   583 ActivityLog "Ran Post.Bat file."
  63.       Open ProgPath + "post2.cfg" For Random As 1 Len = 128 '! This value should probably be replaced with a "SizeOf" expression
  64.       i4467 = 1
  65.   623 Do While Not EOF(1)
  66.         Input #1, s4463
  67.         If Exists(s4463) Then
  68.           Run s4463, ""
  69.           ActivityLog "Postcall ran: " + s4463
  70.         Else
  71.   688     If Not Exists(s4463) Then
  72.             ActivityLog "Could not run WcCode Program: " + s4463
  73.             ActivityLog "Could not find Program: " + s4463
  74.           End If
  75.         End If
  76.   731   i4467 = i4467 + 1
  77.       Loop
  78.   751 Close 1
  79.       ActivityLog "*** Postcall is done running ***"
  80.       ActivityLog "PLEASE REGISTER THIS POSTCALL"
  81.       ActivityLog User.Name + " As just logged off. "
  82.